﻿Public Class Price
    Inherits Telerik.Web.UI.RadAjaxPage

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
        Try
            Dim dict As New Dictionary(Of String, Object)
            dict.Add("PriceRange", txtPriceRange.Text)
            dict.Add("CreatedDate", DateTime.Now)
            BL.PriceRanges.InsertPriceRange(dict)

            txtPriceRange.Text = ""
        Catch ex As Exception
            WebMsgBox.ShowError(ex.Message)
        End Try
    End Sub
End Class